﻿
Public Class OracleLogicException
    Inherits Exception

    Private _errorCd As String = String.Empty
    Private _innerEx As Exception = Nothing

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal errorCd As String)
        MyBase.New()
        Me._errorCd = errorCd
    End Sub

    Public Sub New(ByVal errorCd As String, ByVal ex As Exception)
        MyBase.New()
        Me._errorCd = errorCd
        Me._innerEx = ex
    End Sub

End Class
